home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / A-An / 4TrackStack2.cpt / 4-Track Stack / background_2968.txt < prev    next >
Text File  |  1989-05-02  |  35KB  |  1,474 lines
  1. -- background: 2968 from stack: in
  2. -- bmap block id: 2218
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Main
  6. ----- HyperTalk script -----
  7. on newCard
  8.   set the lockscreen to true
  9.   repeat with counter = 19 to 38
  10.     set cursor to busy
  11.     put the short name of bkgnd button counter into theSetUp
  12.     if counter < 35 then
  13.       put 12 into bkgnd field theSetUp
  14.     else
  15.       delete last word of theSetUp
  16.       put 7 into bkgnd field theSetUp
  17.     end if
  18.     put "Setting up"&&theSetUp
  19.     show bkgnd button counter
  20.     select bkgnd button counter
  21.     doMenu "Copy Button"
  22.     doMenu "Paste Button"
  23.     hide bkgnd button counter
  24.   end repeat
  25.   put "Ready"
  26.   choose browse tool
  27.   Hide Message
  28. end newCard
  29.  
  30.  
  31. on importlyrics
  32.   global myline,infile
  33.  
  34.   -- Get the name of the text file with lyrics
  35.   put "Select ASCII text file with lyrics..."
  36.   get fileName("TEXT")
  37.   if it is empty then
  38.     hide the message box
  39.     exit importlyrics
  40.   end if
  41.  
  42.   -- open the file
  43.   set the cursor to 4
  44.   put it into inFile
  45.   open file inFile
  46.   put false into eof
  47.   put empty into dlNbr
  48.   show field "lyrics"
  49.   put true into locked
  50.   put 1 into myline
  51.   repeat until eof -- read in the lyrics
  52.     read from file infile until return
  53.     if it is empty then put true into eof
  54.     if it is not empty then
  55.       put it into line myLine of field "Lyrics"
  56.       add 1 to myline
  57.     end if
  58.   end repeat
  59.   hide field "lyrics"
  60.   close file inFile
  61.   put empty
  62.   hide the message box
  63. end importLyrics
  64.  
  65.  
  66.  
  67.  
  68.  
  69. -- part 28 (field)
  70. -- low flags: 81
  71. -- high flags: 0000
  72. -- rect: left=38 top=81 right=96 bottom=58
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 0 / 0
  75. -- text alignment: 1
  76. -- font id: 3
  77. -- text size: 9
  78. -- style flags: 0
  79. -- line height: 12
  80. -- part name: Trim1
  81.  
  82.  
  83. -- part 29 (field)
  84. -- low flags: 81
  85. -- high flags: 0000
  86. -- rect: left=85 top=81 right=96 bottom=105
  87. -- title width / last selected line: 0
  88. -- icon id / first selected line: 0 / 0
  89. -- text alignment: 1
  90. -- font id: 3
  91. -- text size: 9
  92. -- style flags: 0
  93. -- line height: 12
  94. -- part name: Trim2
  95.  
  96.  
  97. -- part 30 (field)
  98. -- low flags: 81
  99. -- high flags: 0000
  100. -- rect: left=132 top=81 right=96 bottom=152
  101. -- title width / last selected line: 0
  102. -- icon id / first selected line: 0 / 0
  103. -- text alignment: 1
  104. -- font id: 3
  105. -- text size: 9
  106. -- style flags: 0
  107. -- line height: 12
  108. -- part name: Trim3
  109.  
  110.  
  111. -- part 31 (field)
  112. -- low flags: 81
  113. -- high flags: 0000
  114. -- rect: left=178 top=81 right=96 bottom=198
  115. -- title width / last selected line: 0
  116. -- icon id / first selected line: 0 / 0
  117. -- text alignment: 1
  118. -- font id: 3
  119. -- text size: 9
  120. -- style flags: 0
  121. -- line height: 12
  122. -- part name: Trim4
  123.  
  124.  
  125. -- part 32 (field)
  126. -- low flags: 81
  127. -- high flags: 0000
  128. -- rect: left=37 top=117 right=132 bottom=57
  129. -- title width / last selected line: 0
  130. -- icon id / first selected line: 0 / 0
  131. -- text alignment: 1
  132. -- font id: 3
  133. -- text size: 9
  134. -- style flags: 0
  135. -- line height: 12
  136. -- part name: Hi1
  137.  
  138.  
  139. -- part 33 (field)
  140. -- low flags: 81
  141. -- high flags: 0000
  142. -- rect: left=85 top=116 right=131 bottom=105
  143. -- title width / last selected line: 0
  144. -- icon id / first selected line: 0 / 0
  145. -- text alignment: 1
  146. -- font id: 3
  147. -- text size: 9
  148. -- style flags: 0
  149. -- line height: 12
  150. -- part name: Hi2
  151.  
  152.  
  153. -- part 34 (field)
  154. -- low flags: 81
  155. -- high flags: 0000
  156. -- rect: left=133 top=117 right=132 bottom=153
  157. -- title width / last selected line: 0
  158. -- icon id / first selected line: 0 / 0
  159. -- text alignment: 1
  160. -- font id: 3
  161. -- text size: 9
  162. -- style flags: 0
  163. -- line height: 12
  164. -- part name: Hi3
  165.  
  166.  
  167. -- part 35 (field)
  168. -- low flags: 81
  169. -- high flags: 0000
  170. -- rect: left=178 top=118 right=133 bottom=198
  171. -- title width / last selected line: 0
  172. -- icon id / first selected line: 0 / 0
  173. -- text alignment: 1
  174. -- font id: 3
  175. -- text size: 9
  176. -- style flags: 0
  177. -- line height: 12
  178. -- part name: Hi4
  179.  
  180.  
  181. -- part 36 (field)
  182. -- low flags: 81
  183. -- high flags: 0000
  184. -- rect: left=38 top=153 right=168 bottom=58
  185. -- title width / last selected line: 0
  186. -- icon id / first selected line: 0 / 0
  187. -- text alignment: 1
  188. -- font id: 3
  189. -- text size: 9
  190. -- style flags: 0
  191. -- line height: 12
  192. -- part name: Lo1
  193.  
  194.  
  195. -- part 37 (field)
  196. -- low flags: 81
  197. -- high flags: 0000
  198. -- rect: left=85 top=153 right=168 bottom=105
  199. -- title width / last selected line: 0
  200. -- icon id / first selected line: 0 / 0
  201. -- text alignment: 1
  202. -- font id: 3
  203. -- text size: 9
  204. -- style flags: 0
  205. -- line height: 12
  206. -- part name: Lo2
  207.  
  208.  
  209. -- part 38 (field)
  210. -- low flags: 81
  211. -- high flags: 0000
  212. -- rect: left=132 top=153 right=168 bottom=152
  213. -- title width / last selected line: 0
  214. -- icon id / first selected line: 0 / 0
  215. -- text alignment: 1
  216. -- font id: 3
  217. -- text size: 9
  218. -- style flags: 0
  219. -- line height: 12
  220. -- part name: Lo3
  221.  
  222.  
  223. -- part 39 (field)
  224. -- low flags: 81
  225. -- high flags: 0000
  226. -- rect: left=179 top=152 right=167 bottom=199
  227. -- title width / last selected line: 0
  228. -- icon id / first selected line: 0 / 0
  229. -- text alignment: 1
  230. -- font id: 3
  231. -- text size: 9
  232. -- style flags: 0
  233. -- line height: 12
  234. -- part name: Lo4
  235.  
  236.  
  237. -- part 40 (field)
  238. -- low flags: 81
  239. -- high flags: 0000
  240. -- rect: left=39 top=188 right=203 bottom=59
  241. -- title width / last selected line: 0
  242. -- icon id / first selected line: 0 / 0
  243. -- text alignment: 1
  244. -- font id: 3
  245. -- text size: 9
  246. -- style flags: 0
  247. -- line height: 12
  248. -- part name: Pan1
  249.  
  250.  
  251. -- part 41 (field)
  252. -- low flags: 81
  253. -- high flags: 0000
  254. -- rect: left=85 top=189 right=204 bottom=105
  255. -- title width / last selected line: 0
  256. -- icon id / first selected line: 0 / 0
  257. -- text alignment: 1
  258. -- font id: 3
  259. -- text size: 9
  260. -- style flags: 0
  261. -- line height: 12
  262. -- part name: Pan2
  263.  
  264.  
  265. -- part 42 (field)
  266. -- low flags: 81
  267. -- high flags: 0000
  268. -- rect: left=132 top=189 right=204 bottom=152
  269. -- title width / last selected line: 0
  270. -- icon id / first selected line: 0 / 0
  271. -- text alignment: 1
  272. -- font id: 3
  273. -- text size: 9
  274. -- style flags: 0
  275. -- line height: 12
  276. -- part name: Pan3
  277.  
  278.  
  279. -- part 43 (field)
  280. -- low flags: 81
  281. -- high flags: 0000
  282. -- rect: left=180 top=189 right=204 bottom=200
  283. -- title width / last selected line: 0
  284. -- icon id / first selected line: 0 / 0
  285. -- text alignment: 1
  286. -- font id: 3
  287. -- text size: 9
  288. -- style flags: 0
  289. -- line height: 12
  290. -- part name: Pan4
  291.  
  292.  
  293. -- part 44 (field)
  294. -- low flags: 81
  295. -- high flags: 0000
  296. -- rect: left=38 top=250 right=265 bottom=58
  297. -- title width / last selected line: 0
  298. -- icon id / first selected line: 0 / 0
  299. -- text alignment: 1
  300. -- font id: 3
  301. -- text size: 9
  302. -- style flags: 0
  303. -- line height: 12
  304. -- part name: Level1
  305.  
  306.  
  307. -- part 45 (field)
  308. -- low flags: 81
  309. -- high flags: 0000
  310. -- rect: left=85 top=250 right=265 bottom=105
  311. -- title width / last selected line: 0
  312. -- icon id / first selected line: 0 / 0
  313. -- text alignment: 1
  314. -- font id: 3
  315. -- text size: 9
  316. -- style flags: 0
  317. -- line height: 12
  318. -- part name: Level2
  319.  
  320.  
  321. -- part 46 (field)
  322. -- low flags: 81
  323. -- high flags: 0000
  324. -- rect: left=133 top=250 right=265 bottom=153
  325. -- title width / last selected line: 0
  326. -- icon id / first selected line: 0 / 0
  327. -- text alignment: 1
  328. -- font id: 3
  329. -- text size: 9
  330. -- style flags: 0
  331. -- line height: 12
  332. -- part name: Level3
  333.  
  334.  
  335. -- part 47 (field)
  336. -- low flags: 81
  337. -- high flags: 0000
  338. -- rect: left=177 top=250 right=265 bottom=197
  339. -- title width / last selected line: 0
  340. -- icon id / first selected line: 0 / 0
  341. -- text alignment: 1
  342. -- font id: 3
  343. -- text size: 9
  344. -- style flags: 0
  345. -- line height: 12
  346. -- part name: Level4
  347.  
  348.  
  349. -- part 73 (field)
  350. -- low flags: 00
  351. -- high flags: 4004
  352. -- rect: left=231 top=116 right=158 bottom=455
  353. -- title width / last selected line: 0
  354. -- icon id / first selected line: 0 / 0
  355. -- text alignment: 0
  356. -- font id: 3
  357. -- text size: 12
  358. -- style flags: 0
  359. -- line height: 16
  360. -- part name: Song Title
  361.  
  362.  
  363. -- part 23 (field)
  364. -- low flags: 02
  365. -- high flags: 0000
  366. -- rect: left=293 top=162 right=181 bottom=338
  367. -- title width / last selected line: 0
  368. -- icon id / first selected line: 0 / 0
  369. -- text alignment: 0
  370. -- font id: 3
  371. -- text size: 12
  372. -- style flags: 0
  373. -- line height: 16
  374. -- part name: Tape Counter
  375.  
  376.  
  377. -- part 22 (field)
  378. -- low flags: 02
  379. -- high flags: 0000
  380. -- rect: left=394 top=162 right=181 bottom=439
  381. -- title width / last selected line: 0
  382. -- icon id / first selected line: 0 / 0
  383. -- text alignment: 0
  384. -- font id: 3
  385. -- text size: 12
  386. -- style flags: 0
  387. -- line height: 16
  388. -- part name: Time
  389.  
  390.  
  391. -- part 69 (field)
  392. -- low flags: 02
  393. -- high flags: 4000
  394. -- rect: left=312 top=199 right=217 bottom=456
  395. -- title width / last selected line: 0
  396. -- icon id / first selected line: 0 / 0
  397. -- text alignment: 0
  398. -- font id: 3
  399. -- text size: 9
  400. -- style flags: 0
  401. -- line height: 12
  402. -- part name: Tape Title
  403.  
  404.  
  405. -- part 70 (field)
  406. -- low flags: 02
  407. -- high flags: 4000
  408. -- rect: left=312 top=223 right=241 bottom=456
  409. -- title width / last selected line: 0
  410. -- icon id / first selected line: 0 / 0
  411. -- text alignment: 0
  412. -- font id: 3
  413. -- text size: 9
  414. -- style flags: 0
  415. -- line height: 12
  416. -- part name: SongWriter
  417.  
  418.  
  419. -- part 71 (field)
  420. -- low flags: 02
  421. -- high flags: 4000
  422. -- rect: left=312 top=246 right=264 bottom=456
  423. -- title width / last selected line: 0
  424. -- icon id / first selected line: 0 / 0
  425. -- text alignment: 0
  426. -- font id: 3
  427. -- text size: 9
  428. -- style flags: 0
  429. -- line height: 12
  430. -- part name: Performer
  431.  
  432.  
  433. -- part 72 (field)
  434. -- low flags: 02
  435. -- high flags: 4000
  436. -- rect: left=313 top=268 right=286 bottom=457
  437. -- title width / last selected line: 0
  438. -- icon id / first selected line: 0 / 0
  439. -- text alignment: 0
  440. -- font id: 3
  441. -- text size: 9
  442. -- style flags: 0
  443. -- line height: 12
  444. -- part name: Date
  445.  
  446.  
  447. -- part 64 (button)
  448. -- low flags: 00
  449. -- high flags: 2000
  450. -- rect: left=34 top=219 right=333 bottom=61
  451. -- title width / last selected line: 0
  452. -- icon id / first selected line: 0 / 0
  453. -- text alignment: 1
  454. -- font id: 0
  455. -- text size: 12
  456. -- style flags: 0
  457. -- line height: 16
  458. -- part name: Level1
  459. ----- HyperTalk script -----
  460. on mouseUp
  461.   put the short name of me into theField
  462.   put the rect of me into theRect
  463.   put first item of theRect into theLeft
  464.   put second item of theRect into theTop
  465.   put third item of theRect into theRight
  466.   put fourth item of theRect - 5 into theBottom
  467.   put (theBottom-theTop)div 10 into theIncrement
  468.   if the optionkey is down then
  469.     subtract 1 from bkgnd field theField
  470.   else
  471.     add 1 to bkgnd field theField
  472.   end if
  473.   if bkgnd field theField > 10 then put 0 into bkgnd field theField
  474.   if bkgnd field theField < 0 then put 10 into bkgnd field theField
  475.   put bkgnd field theField into theValue
  476.   put the short name of me&&"Slider" into theName
  477.   set the left of card button theName to theLeft-2
  478.   set the bottom of card button theName to (theBottom - theValue*theIncrement) + 8
  479. end mouseUp
  480.  
  481.  
  482.  
  483. -- part 27 (field)
  484. -- low flags: 00
  485. -- high flags: 0002
  486. -- rect: left=28 top=33 right=66 bottom=94
  487. -- title width / last selected line: 0
  488. -- icon id / first selected line: 0 / 0
  489. -- text alignment: 0
  490. -- font id: 20
  491. -- text size: 12
  492. -- style flags: 0
  493. -- line height: 16
  494. -- part name: Inst1
  495.  
  496.  
  497. -- part 26 (field)
  498. -- low flags: 00
  499. -- high flags: 0002
  500. -- rect: left=103 top=33 right=66 bottom=169
  501. -- title width / last selected line: 0
  502. -- icon id / first selected line: 0 / 0
  503. -- text alignment: 0
  504. -- font id: 20
  505. -- text size: 12
  506. -- style flags: 0
  507. -- line height: 16
  508. -- part name: Inst2
  509.  
  510.  
  511. -- part 65 (button)
  512. -- low flags: 00
  513. -- high flags: 2000
  514. -- rect: left=82 top=219 right=333 bottom=109
  515. -- title width / last selected line: 0
  516. -- icon id / first selected line: 0 / 0
  517. -- text alignment: 1
  518. -- font id: 0
  519. -- text size: 12
  520. -- style flags: 0
  521. -- line height: 16
  522. -- part name: Level2
  523. ----- HyperTalk script -----
  524. on mouseUp
  525.   put the short name of me into theField
  526.   put the rect of me into theRect
  527.   put first item of theRect into theLeft
  528.   put second item of theRect into theTop
  529.   put third item of theRect into theRight
  530.   put fourth item of theRect - 5 into theBottom
  531.   put (theBottom-theTop)div 10 into theIncrement
  532.   if the optionkey is down then
  533.     subtract 1 from bkgnd field theField
  534.   else
  535.     add 1 to bkgnd field theField
  536.   end if
  537.   if bkgnd field theField > 10 then put 0 into bkgnd field theField
  538.   if bkgnd field theField < 0 then put 10 into bkgnd field theField
  539.   put bkgnd field theField into theValue
  540.   put the short name of me&&"Slider" into theName
  541.   set the left of card button theName to theLeft-2
  542.   set the bottom of card button theName to (theBottom - theValue*theIncrement) + 8
  543. end mouseUp
  544.  
  545.  
  546.  
  547. -- part 25 (field)
  548. -- low flags: 00
  549. -- high flags: 0002
  550. -- rect: left=178 top=33 right=66 bottom=244
  551. -- title width / last selected line: 0
  552. -- icon id / first selected line: 0 / 0
  553. -- text alignment: 0
  554. -- font id: 20
  555. -- text size: 12
  556. -- style flags: 0
  557. -- line height: 16
  558. -- part name: Inst3
  559.  
  560.  
  561. -- part 24 (field)
  562. -- low flags: 00
  563. -- high flags: 0002
  564. -- rect: left=252 top=33 right=66 bottom=318
  565. -- title width / last selected line: 0
  566. -- icon id / first selected line: 0 / 0
  567. -- text alignment: 0
  568. -- font id: 20
  569. -- text size: 12
  570. -- style flags: 0
  571. -- line height: 16
  572. -- part name: Inst4
  573.  
  574.  
  575. -- part 66 (button)
  576. -- low flags: 00
  577. -- high flags: 2000
  578. -- rect: left=129 top=219 right=333 bottom=157
  579. -- title width / last selected line: 0
  580. -- icon id / first selected line: 0 / 0
  581. -- text alignment: 1
  582. -- font id: 0
  583. -- text size: 12
  584. -- style flags: 0
  585. -- line height: 16
  586. -- part name: Level3
  587. ----- HyperTalk script -----
  588. on mouseUp
  589.   put the short name of me into theField
  590.   put the rect of me into theRect
  591.   put first item of theRect into theLeft
  592.   put second item of theRect into theTop
  593.   put third item of theRect into theRight
  594.   put fourth item of theRect - 5 into theBottom
  595.   put (theBottom-theTop)div 10 into theIncrement
  596.   if the optionkey is down then
  597.     subtract 1 from bkgnd field theField
  598.   else
  599.     add 1 to bkgnd field theField
  600.   end if
  601.   if bkgnd field theField > 10 then put 0 into bkgnd field theField
  602.   if bkgnd field theField < 0 then put 10 into bkgnd field theField
  603.   put bkgnd field theField into theValue
  604.   put the short name of me&&"Slider" into theName
  605.   set the left of card button theName to theLeft-2
  606.   set the bottom of card button theName to (theBottom - theValue*theIncrement) + 8
  607. end mouseUp
  608.  
  609.  
  610.  
  611. -- part 67 (button)
  612. -- low flags: 00
  613. -- high flags: 2000
  614. -- rect: left=174 top=219 right=333 bottom=202
  615. -- title width / last selected line: 0
  616. -- icon id / first selected line: 0 / 0
  617. -- text alignment: 1
  618. -- font id: 0
  619. -- text size: 12
  620. -- style flags: 0
  621. -- line height: 16
  622. -- part name: Level4
  623. ----- HyperTalk script -----
  624. on mouseUp
  625.   put the short name of me into theField
  626.   put the rect of me into theRect
  627.   put first item of theRect into theLeft
  628.   put second item of theRect into theTop
  629.   put third item of theRect into theRight
  630.   put fourth item of theRect - 5 into theBottom
  631.   put (theBottom-theTop)div 10 into theIncrement
  632.   if the optionkey is down then
  633.     subtract 1 from bkgnd field theField
  634.   else
  635.     add 1 to bkgnd field theField
  636.   end if
  637.   if bkgnd field theField > 10 then put 0 into bkgnd field theField
  638.   if bkgnd field theField < 0 then put 10 into bkgnd field theField
  639.   put bkgnd field theField into theValue
  640.   put the short name of me&&"Slider" into theName
  641.   set the left of card button theName to theLeft-2
  642.   set the bottom of card button theName to (theBottom - theValue*theIncrement) + 8
  643. end mouseUp
  644.  
  645.  
  646.  
  647. -- part 75 (button)
  648. -- low flags: 00
  649. -- high flags: 2000
  650. -- rect: left=272 top=288 right=337 bottom=299
  651. -- title width / last selected line: 0
  652. -- icon id / first selected line: 15420 / 15420
  653. -- text alignment: 1
  654. -- font id: 0
  655. -- text size: 12
  656. -- style flags: 0
  657. -- line height: 16
  658. -- part name: Prev
  659. ----- HyperTalk script -----
  660. on mouseUp
  661.   visual effect scroll right
  662.   go to previous card of this background
  663. end mouseUp
  664.  
  665.  
  666. -- part 76 (button)
  667. -- low flags: 00
  668. -- high flags: 2000
  669. -- rect: left=306 top=288 right=337 bottom=333
  670. -- title width / last selected line: 0
  671. -- icon id / first selected line: 16560 / 16560
  672. -- text alignment: 1
  673. -- font id: 0
  674. -- text size: 12
  675. -- style flags: 0
  676. -- line height: 16
  677. -- part name: Next
  678. ----- HyperTalk script -----
  679. on mouseUp
  680.   visual effect scroll left
  681.   go to next card of this background
  682. end mouseUp
  683.  
  684.  
  685. -- part 77 (button)
  686. -- low flags: 00
  687. -- high flags: 2000
  688. -- rect: left=424 top=288 right=337 bottom=457
  689. -- title width / last selected line: 0
  690. -- icon id / first selected line: 20098 / 20098
  691. -- text alignment: 1
  692. -- font id: 0
  693. -- text size: 12
  694. -- style flags: 0
  695. -- line height: 16
  696. -- part name: Home
  697. ----- HyperTalk script -----
  698. on mouseUp
  699.   visual effect iris close
  700.   go home
  701. end mouseUp
  702.  
  703.  
  704.  
  705. -- part 78 (button)
  706. -- low flags: 00
  707. -- high flags: A000
  708. -- rect: left=458 top=84 right=133 bottom=499
  709. -- title width / last selected line: 0
  710. -- icon id / first selected line: 20186 / 20186
  711. -- text alignment: 1
  712. -- font id: 0
  713. -- text size: 12
  714. -- style flags: 0
  715. -- line height: 16
  716. -- part name: Sort
  717. ----- HyperTalk script -----
  718. on mouseUp
  719.   answer "Sort the cards by:" with "Title" or "Index" or "Cancel"
  720.   if it is "Title" then
  721.     sort by Field "Song Title" alphabetically
  722.   end if
  723.   if it is "Index" then
  724.     sort by Field "Index Number" numerically
  725.   end if
  726. end mouseUp
  727.  
  728.  
  729.  
  730. -- part 79 (field)
  731. -- low flags: 03
  732. -- high flags: 4000
  733. -- rect: left=439 top=28 right=42 bottom=501
  734. -- title width / last selected line: 0
  735. -- icon id / first selected line: 0 / 0
  736. -- text alignment: 0
  737. -- font id: 3
  738. -- text size: 9
  739. -- style flags: 0
  740. -- line height: 12
  741. -- part name: Index number
  742.  
  743.  
  744. -- part 80 (button)
  745. -- low flags: 00
  746. -- high flags: 2000
  747. -- rect: left=383 top=288 right=337 bottom=416
  748. -- title width / last selected line: 0
  749. -- icon id / first selected line: 0 / 0
  750. -- text alignment: 1
  751. -- font id: 0
  752. -- text size: 12
  753. -- style flags: 0
  754. -- line height: 16
  755. -- part name: 
  756. ----- HyperTalk script -----
  757. on mouseUp
  758.   domenu "new card"
  759. end mouseUp
  760.  
  761.  
  762.  
  763. -- part 81 (button)
  764. -- low flags: 00
  765. -- high flags: 2000
  766. -- rect: left=341 top=288 right=337 bottom=374
  767. -- title width / last selected line: 0
  768. -- icon id / first selected line: 0 / 0
  769. -- text alignment: 1
  770. -- font id: 0
  771. -- text size: 12
  772. -- style flags: 0
  773. -- line height: 16
  774. -- part name: 
  775. ----- HyperTalk script -----
  776. on mouseUp
  777.   put the short date into background field "date"
  778. end mouseUp
  779.  
  780.  
  781.  
  782. -- part 86 (button)
  783. -- low flags: 00
  784. -- high flags: 2000
  785. -- rect: left=232 top=288 right=337 bottom=265
  786. -- title width / last selected line: 0
  787. -- icon id / first selected line: 26635 / 26635
  788. -- text alignment: 1
  789. -- font id: 0
  790. -- text size: 12
  791. -- style flags: 0
  792. -- line height: 16
  793. -- part name: Help
  794. ----- HyperTalk script -----
  795. on mouseUp
  796.   push card
  797.   visual effect zoom open
  798.   go to card "Help Card"
  799. end mouseUp
  800.  
  801.  
  802. -- part 88 (button)
  803. -- low flags: 00
  804. -- high flags: A000
  805. -- rect: left=444 top=135 right=181 bottom=512
  806. -- title width / last selected line: 0
  807. -- icon id / first selected line: 1004 / 1004
  808. -- text alignment: 1
  809. -- font id: 0
  810. -- text size: 12
  811. -- style flags: 0
  812. -- line height: 16
  813. -- part name: Import Lyrics
  814. ----- HyperTalk script -----
  815. on mouseUp
  816.   global myline
  817.   importlyrics
  818. end mouseUp
  819.  
  820.  
  821.  
  822. -- part 97 (button)
  823. -- low flags: 00
  824. -- high flags: 2000
  825. -- rect: left=244 top=194 right=216 bottom=273
  826. -- title width / last selected line: 0
  827. -- icon id / first selected line: 6448 / 6448
  828. -- text alignment: 1
  829. -- font id: 0
  830. -- text size: 12
  831. -- style flags: 0
  832. -- line height: 16
  833. -- part name: 4-Track Stack
  834. ----- HyperTalk script -----
  835. on mouseUp
  836.   answer "Find a copy of this button on the help card‚Ķ" with "OK"
  837.   answer "It will install a link in your Home stack" with "OK"
  838. end mouseUp
  839.  
  840.  
  841.  
  842. -- part 89 (field)
  843. -- low flags: 80
  844. -- high flags: 2007
  845. -- rect: left=231 top=100 right=338 bottom=457
  846. -- title width / last selected line: 0
  847. -- icon id / first selected line: 0 / 0
  848. -- text alignment: 0
  849. -- font id: 3
  850. -- text size: 9
  851. -- style flags: 0
  852. -- line height: 12
  853. -- part name: Lyrics
  854.  
  855.  
  856. -- part 90 (button)
  857. -- low flags: 80
  858. -- high flags: A003
  859. -- rect: left=276 top=81 right=99 bottom=403
  860. -- title width / last selected line: 0
  861. -- icon id / first selected line: 0 / 0
  862. -- text alignment: 1
  863. -- font id: 0
  864. -- text size: 12
  865. -- style flags: 0
  866. -- line height: 16
  867. -- part name: Hide Lyrics
  868. ----- HyperTalk script -----
  869. on mouseUp
  870.   hide field "Lyrics"
  871.   show background button "Show Lyrics"
  872.   hide background button "Hide Lyrics"
  873. end mouseUp
  874.  
  875.  
  876.  
  877. -- part 92 (button)
  878. -- low flags: 00
  879. -- high flags: A003
  880. -- rect: left=276 top=81 right=99 bottom=403
  881. -- title width / last selected line: 0
  882. -- icon id / first selected line: 0 / 0
  883. -- text alignment: 1
  884. -- font id: 0
  885. -- text size: 12
  886. -- style flags: 0
  887. -- line height: 16
  888. -- part name: Show Lyrics
  889. ----- HyperTalk script -----
  890. on mouseUp
  891.   show field "Lyrics"
  892.   show background button "Hide Lyrics"
  893.   hide background button "Show Lyrics"
  894. end mouseUp
  895.  
  896.  
  897.  
  898. -- part 96 (button)
  899. -- low flags: 00
  900. -- high flags: 2000
  901. -- rect: left=427 top=28 right=74 bottom=503
  902. -- title width / last selected line: 0
  903. -- icon id / first selected line: 0 / 0
  904. -- text alignment: 1
  905. -- font id: 0
  906. -- text size: 12
  907. -- style flags: 0
  908. -- line height: 16
  909. -- part name: Enter Index
  910. ----- HyperTalk script -----
  911. on mouseUp
  912.   ask "What is the Recording's Index number?"
  913.   if it is not empty then
  914.     put it into field "Index Number"
  915.   end if
  916. end mouseUp
  917.  
  918.  
  919.  
  920. -- part 98 (button)
  921. -- low flags: 00
  922. -- high flags: A000
  923. -- rect: left=337 top=28 right=74 bottom=417
  924. -- title width / last selected line: 0
  925. -- icon id / first selected line: 5937 / 5937
  926. -- text alignment: 1
  927. -- font id: 0
  928. -- text size: 12
  929. -- style flags: 0
  930. -- line height: 16
  931. -- part name: Unlocked
  932. ----- HyperTalk script -----
  933. on mouseUp
  934.   repeat with counter = 21 to 31
  935.     set the locktext of field counter to true
  936.   end repeat
  937.   show background button "Locked"
  938.   hide background button "Unlocked"
  939.   set the cantmodify of this stack to true
  940. end mouseUp
  941.  
  942.  
  943.  
  944. -- part 99 (button)
  945. -- low flags: 80
  946. -- high flags: A000
  947. -- rect: left=337 top=28 right=74 bottom=417
  948. -- title width / last selected line: 0
  949. -- icon id / first selected line: 26178 / 26178
  950. -- text alignment: 1
  951. -- font id: 0
  952. -- text size: 12
  953. -- style flags: 0
  954. -- line height: 16
  955. -- part name: Locked
  956. ----- HyperTalk script -----
  957. on mouseUp
  958.   set the cantmodify of this stack to false
  959.   repeat with counter = 21 to 31
  960.     set the locktext of field counter to false
  961.   end repeat
  962.   show background button "Unlocked"
  963.   hide background button "Locked"
  964. end mouseUp
  965.  
  966.  
  967.  
  968. -- part 101 (button)
  969. -- low flags: 80
  970. -- high flags: 2000
  971. -- rect: left=31 top=73 right=105 bottom=65
  972. -- title width / last selected line: 0
  973. -- icon id / first selected line: 5212 / 5212
  974. -- text alignment: 1
  975. -- font id: 0
  976. -- text size: 12
  977. -- style flags: 0
  978. -- line height: 16
  979. -- part name: Trim1
  980. ----- HyperTalk script -----
  981. on mouseUp
  982.   put the short name of me into theField
  983.   if the optionkey is down then
  984.     subtract 1 from bkgnd field theField
  985.   else
  986.     add 1 to bkgnd field theField
  987.   end if
  988.   if bkgnd field theField > 12 then put 1 into bkgnd field theField
  989.   if bkgnd field theField < 1 then put 12 into bkgnd field theField
  990.   set the icon of me to (5200 + bkgnd field theField)
  991. end mouseUp
  992.  
  993.  
  994.  
  995. -- part 102 (button)
  996. -- low flags: 80
  997. -- high flags: 2000
  998. -- rect: left=78 top=73 right=105 bottom=112
  999. -- title width / last selected line: 0
  1000. -- icon id / first selected line: 5212 / 5212
  1001. -- text alignment: 1
  1002. -- font id: 0
  1003. -- text size: 12
  1004. -- style flags: 0
  1005. -- line height: 16
  1006. -- part name: Trim2
  1007. ----- HyperTalk script -----
  1008. on mouseUp
  1009.   put the short name of me into theField
  1010.   if the optionkey is down then
  1011.     subtract 1 from bkgnd field theField
  1012.   else
  1013.     add 1 to bkgnd field theField
  1014.   end if
  1015.   if bkgnd field theField > 12 then put 1 into bkgnd field theField
  1016.   if bkgnd field theField < 1 then put 12 into bkgnd field theField
  1017.   set the icon of me to (5200 + bkgnd field theField)
  1018. end mouseUp
  1019.  
  1020.  
  1021.  
  1022. -- part 103 (button)
  1023. -- low flags: 80
  1024. -- high flags: 2000
  1025. -- rect: left=126 top=73 right=105 bottom=160
  1026. -- title width / last selected line: 0
  1027. -- icon id / first selected line: 5212 / 5212
  1028. -- text alignment: 1
  1029. -- font id: 0
  1030. -- text size: 12
  1031. -- style flags: 0
  1032. -- line height: 16
  1033. -- part name: Trim3
  1034. ----- HyperTalk script -----
  1035. on mouseUp
  1036.   put the short name of me into theField
  1037.   if the optionkey is down then
  1038.     subtract 1 from bkgnd field theField
  1039.   else
  1040.     add 1 to bkgnd field theField
  1041.   end if
  1042.   if bkgnd field theField > 12 then put 1 into bkgnd field theField
  1043.   if bkgnd field theField < 1 then put 12 into bkgnd field theField
  1044.   set the icon of me to (5200 + bkgnd field theField)
  1045. end mouseUp
  1046.  
  1047.  
  1048.  
  1049. -- part 104 (button)
  1050. -- low flags: 80
  1051. -- high flags: 2000
  1052. -- rect: left=171 top=73 right=105 bottom=205
  1053. -- title width / last selected line: 0
  1054. -- icon id / first selected line: 5212 / 5212
  1055. -- text alignment: 1
  1056. -- font id: 0
  1057. -- text size: 12
  1058. -- style flags: 0
  1059. -- line height: 16
  1060. -- part name: Trim4
  1061. ----- HyperTalk script -----
  1062. on mouseUp
  1063.   put the short name of me into theField
  1064.   if the optionkey is down then
  1065.     subtract 1 from bkgnd field theField
  1066.   else
  1067.     add 1 to bkgnd field theField
  1068.   end if
  1069.   if bkgnd field theField > 12 then put 1 into bkgnd field theField
  1070.   if bkgnd field theField < 1 then put 12 into bkgnd field theField
  1071.   set the icon of me to (5200 + bkgnd field theField)
  1072. end mouseUp
  1073.  
  1074.  
  1075.  
  1076. -- part 111 (button)
  1077. -- low flags: 80
  1078. -- high flags: 2000
  1079. -- rect: left=31 top=109 right=141 bottom=65
  1080. -- title width / last selected line: 0
  1081. -- icon id / first selected line: 5312 / 5312
  1082. -- text alignment: 1
  1083. -- font id: 0
  1084. -- text size: 12
  1085. -- style flags: 0
  1086. -- line height: 16
  1087. -- part name: Hi1
  1088. ----- HyperTalk script -----
  1089. on mouseUp
  1090.   put the short name of me into theField
  1091.   if the optionkey is down then
  1092.     subtract 1 from bkgnd field theField
  1093.   else
  1094.     add 1 to bkgnd field theField
  1095.   end if
  1096.   if bkgnd field theField > 12 then put 1 into bkgnd field theField
  1097.   if bkgnd field theField < 1 then put 12 into bkgnd field theField
  1098.   set the icon of me to (5300 + bkgnd field theField)
  1099. end mouseUp
  1100.  
  1101.  
  1102.  
  1103. -- part 112 (button)
  1104. -- low flags: 80
  1105. -- high flags: 2000
  1106. -- rect: left=78 top=109 right=141 bottom=112
  1107. -- title width / last selected line: 0
  1108. -- icon id / first selected line: 5312 / 5312
  1109. -- text alignment: 1
  1110. -- font id: 0
  1111. -- text size: 12
  1112. -- style flags: 0
  1113. -- line height: 16
  1114. -- part name: Hi2
  1115. ----- HyperTalk script -----
  1116. on mouseUp
  1117.   put the short name of me into theField
  1118.   if the optionkey is down then
  1119.     subtract 1 from bkgnd field theField
  1120.   else
  1121.     add 1 to bkgnd field theField
  1122.   end if
  1123.   if bkgnd field theField > 12 then put 1 into bkgnd field theField
  1124.   if bkgnd field theField < 1 then put 12 into bkgnd field theField
  1125.   set the icon of me to (5300 + bkgnd field theField)
  1126. end mouseUp
  1127.  
  1128.  
  1129.  
  1130. -- part 113 (button)
  1131. -- low flags: 80
  1132. -- high flags: 2000
  1133. -- rect: left=126 top=109 right=141 bottom=160
  1134. -- title width / last selected line: 0
  1135. -- icon id / first selected line: 5312 / 5312
  1136. -- text alignment: 1
  1137. -- font id: 0
  1138. -- text size: 12
  1139. -- style flags: 0
  1140. -- line height: 16
  1141. -- part name: Hi3
  1142. ----- HyperTalk script -----
  1143. on mouseUp
  1144.   put the short name of me into theField
  1145.   if the optionkey is down then
  1146.     subtract 1 from bkgnd field theField
  1147.   else
  1148.     add 1 to bkgnd field theField
  1149.   end if
  1150.   if bkgnd field theField > 12 then put 1 into bkgnd field theField
  1151.   if bkgnd field theField < 1 then put 12 into bkgnd field theField
  1152.   set the icon of me to (5300 + bkgnd field theField)
  1153. end mouseUp
  1154.  
  1155.  
  1156.  
  1157. -- part 114 (button)
  1158. -- low flags: 80
  1159. -- high flags: 2000
  1160. -- rect: left=171 top=109 right=141 bottom=205
  1161. -- title width / last selected line: 0
  1162. -- icon id / first selected line: 5312 / 5312
  1163. -- text alignment: 1
  1164. -- font id: 0
  1165. -- text size: 12
  1166. -- style flags: 0
  1167. -- line height: 16
  1168. -- part name: Hi4
  1169. ----- HyperTalk script -----
  1170. on mouseUp
  1171.   put the short name of me into theField
  1172.   if the optionkey is down then
  1173.     subtract 1 from bkgnd field theField
  1174.   else
  1175.     add 1 to bkgnd field theField
  1176.   end if
  1177.   if bkgnd field theField > 12 then put 1 into bkgnd field theField
  1178.   if bkgnd field theField < 1 then put 12 into bkgnd field theField
  1179.   set the icon of me to (5300 + bkgnd field theField)
  1180. end mouseUp
  1181.  
  1182.  
  1183.  
  1184. -- part 115 (button)
  1185. -- low flags: 80
  1186. -- high flags: 2000
  1187. -- rect: left=31 top=145 right=177 bottom=65
  1188. -- title width / last selected line: 0
  1189. -- icon id / first selected line: 5312 / 5312
  1190. -- text alignment: 1
  1191. -- font id: 0
  1192. -- text size: 12
  1193. -- style flags: 0
  1194. -- line height: 16
  1195. -- part name: Lo1
  1196. ----- HyperTalk script -----
  1197. on mouseUp
  1198.   put the short name of me into theField
  1199.   if the optionkey is down then
  1200.     subtract 1 from bkgnd field theField
  1201.   else
  1202.     add 1 to bkgnd field theField
  1203.   end if
  1204.   if bkgnd field theField > 12 then put 1 into bkgnd field theField
  1205.   if bkgnd field theField < 1 then put 12 into bkgnd field theField
  1206.   set the icon of me to (5300 + bkgnd field theField)
  1207. end mouseUp
  1208.  
  1209.  
  1210.  
  1211. -- part 116 (button)
  1212. -- low flags: 80
  1213. -- high flags: 2000
  1214. -- rect: left=78 top=145 right=177 bottom=112
  1215. -- title width / last selected line: 0
  1216. -- icon id / first selected line: 5312 / 5312
  1217. -- text alignment: 1
  1218. -- font id: 0
  1219. -- text size: 12
  1220. -- style flags: 0
  1221. -- line height: 16
  1222. -- part name: Lo2
  1223. ----- HyperTalk script -----
  1224. on mouseUp
  1225.   put the short name of me into theField
  1226.   if the optionkey is down then
  1227.     subtract 1 from bkgnd field theField
  1228.   else
  1229.     add 1 to bkgnd field theField
  1230.   end if
  1231.   if bkgnd field theField > 12 then put 1 into bkgnd field theField
  1232.   if bkgnd field theField < 1 then put 12 into bkgnd field theField
  1233.   set the icon of me to (5300 + bkgnd field theField)
  1234. end mouseUp
  1235.  
  1236.  
  1237.  
  1238. -- part 117 (button)
  1239. -- low flags: 80
  1240. -- high flags: 2000
  1241. -- rect: left=126 top=145 right=177 bottom=160
  1242. -- title width / last selected line: 0
  1243. -- icon id / first selected line: 5312 / 5312
  1244. -- text alignment: 1
  1245. -- font id: 0
  1246. -- text size: 12
  1247. -- style flags: 0
  1248. -- line height: 16
  1249. -- part name: Lo3
  1250. ----- HyperTalk script -----
  1251. on mouseUp
  1252.   put the short name of me into theField
  1253.   if the optionkey is down then
  1254.     subtract 1 from bkgnd field theField
  1255.   else
  1256.     add 1 to bkgnd field theField
  1257.   end if
  1258.   if bkgnd field theField > 12 then put 1 into bkgnd field theField
  1259.   if bkgnd field theField < 1 then put 12 into bkgnd field theField
  1260.   set the icon of me to (5300 + bkgnd field theField)
  1261. end mouseUp
  1262.  
  1263.  
  1264.  
  1265. -- part 118 (button)
  1266. -- low flags: 80
  1267. -- high flags: 2000
  1268. -- rect: left=171 top=145 right=177 bottom=205
  1269. -- title width / last selected line: 0
  1270. -- icon id / first selected line: 5312 / 5312
  1271. -- text alignment: 1
  1272. -- font id: 0
  1273. -- text size: 12
  1274. -- style flags: 0
  1275. -- line height: 16
  1276. -- part name: Lo4
  1277. ----- HyperTalk script -----
  1278. on mouseUp
  1279.   put the short name of me into theField
  1280.   if the optionkey is down then
  1281.     subtract 1 from bkgnd field theField
  1282.   else
  1283.     add 1 to bkgnd field theField
  1284.   end if
  1285.   if bkgnd field theField > 12 then put 1 into bkgnd field theField
  1286.   if bkgnd field theField < 1 then put 12 into bkgnd field theField
  1287.   set the icon of me to (5300 + bkgnd field theField)
  1288. end mouseUp
  1289.  
  1290.  
  1291.  
  1292. -- part 119 (button)
  1293. -- low flags: 80
  1294. -- high flags: 2000
  1295. -- rect: left=31 top=180 right=212 bottom=65
  1296. -- title width / last selected line: 0
  1297. -- icon id / first selected line: 5412 / 5412
  1298. -- text alignment: 1
  1299. -- font id: 0
  1300. -- text size: 12
  1301. -- style flags: 0
  1302. -- line height: 16
  1303. -- part name: Pan1
  1304. ----- HyperTalk script -----
  1305. on mouseUp
  1306.   put the short name of me into theField
  1307.   if the optionkey is down then
  1308.     subtract 1 from bkgnd field theField
  1309.   else
  1310.     add 1 to bkgnd field theField
  1311.   end if
  1312.   if bkgnd field theField > 12 then put 1 into bkgnd field theField
  1313.   if bkgnd field theField < 1 then put 12 into bkgnd field theField
  1314.   set the icon of me to (5400 + bkgnd field theField)
  1315. end mouseUp
  1316.  
  1317.  
  1318.  
  1319. -- part 120 (button)
  1320. -- low flags: 80
  1321. -- high flags: 2000
  1322. -- rect: left=78 top=180 right=212 bottom=112
  1323. -- title width / last selected line: 0
  1324. -- icon id / first selected line: 5412 / 5412
  1325. -- text alignment: 1
  1326. -- font id: 0
  1327. -- text size: 12
  1328. -- style flags: 0
  1329. -- line height: 16
  1330. -- part name: Pan2
  1331. ----- HyperTalk script -----
  1332. on mouseUp
  1333.   put the short name of me into theField
  1334.   if the optionkey is down then
  1335.     subtract 1 from bkgnd field theField
  1336.   else
  1337.     add 1 to bkgnd field theField
  1338.   end if
  1339.   if bkgnd field theField > 12 then put 1 into bkgnd field theField
  1340.   if bkgnd field theField < 1 then put 12 into bkgnd field theField
  1341.   set the icon of me to (5400 + bkgnd field theField)
  1342. end mouseUp
  1343.  
  1344.  
  1345.  
  1346. -- part 121 (button)
  1347. -- low flags: 80
  1348. -- high flags: 2000
  1349. -- rect: left=126 top=180 right=212 bottom=160
  1350. -- title width / last selected line: 0
  1351. -- icon id / first selected line: 5412 / 5412
  1352. -- text alignment: 1
  1353. -- font id: 0
  1354. -- text size: 12
  1355. -- style flags: 0
  1356. -- line height: 16
  1357. -- part name: Pan3
  1358. ----- HyperTalk script -----
  1359. on mouseUp
  1360.   put the short name of me into theField
  1361.   if the optionkey is down then
  1362.     subtract 1 from bkgnd field theField
  1363.   else
  1364.     add 1 to bkgnd field theField
  1365.   end if
  1366.   if bkgnd field theField > 12 then put 1 into bkgnd field theField
  1367.   if bkgnd field theField < 1 then put 12 into bkgnd field theField
  1368.   set the icon of me to (5400 + bkgnd field theField)
  1369. end mouseUp
  1370.  
  1371.  
  1372.  
  1373. -- part 123 (button)
  1374. -- low flags: 80
  1375. -- high flags: 2000
  1376. -- rect: left=171 top=180 right=212 bottom=205
  1377. -- title width / last selected line: 0
  1378. -- icon id / first selected line: 5412 / 5412
  1379. -- text alignment: 1
  1380. -- font id: 0
  1381. -- text size: 12
  1382. -- style flags: 0
  1383. -- line height: 16
  1384. -- part name: Pan4
  1385. ----- HyperTalk script -----
  1386. on mouseUp
  1387.   put the short name of me into theField
  1388.   if the optionkey is down then
  1389.     subtract 1 from bkgnd field theField
  1390.   else
  1391.     add 1 to bkgnd field theField
  1392.   end if
  1393.   if bkgnd field theField > 12 then put 1 into bkgnd field theField
  1394.   if bkgnd field theField < 1 then put 12 into bkgnd field theField
  1395.   set the icon of me to (5400 + bkgnd field theField)
  1396. end mouseUp
  1397.  
  1398.  
  1399.  
  1400. -- part 125 (button)
  1401. -- low flags: 80
  1402. -- high flags: 2000
  1403. -- rect: left=32 top=249 right=266 bottom=66
  1404. -- title width / last selected line: 0
  1405. -- icon id / first selected line: 6000 / 6000
  1406. -- text alignment: 1
  1407. -- font id: 0
  1408. -- text size: 12
  1409. -- style flags: 0
  1410. -- line height: 16
  1411. -- part name: Level1 Slider
  1412. ----- HyperTalk script -----
  1413. on mouseUp
  1414.   send mouseup to bkgnd btn "level1"
  1415. end mouseUp
  1416.  
  1417.  
  1418.  
  1419. -- part 126 (button)
  1420. -- low flags: 80
  1421. -- high flags: 2000
  1422. -- rect: left=80 top=249 right=266 bottom=113
  1423. -- title width / last selected line: 0
  1424. -- icon id / first selected line: 6000 / 6000
  1425. -- text alignment: 1
  1426. -- font id: 0
  1427. -- text size: 12
  1428. -- style flags: 0
  1429. -- line height: 16
  1430. -- part name: Level2 Slider
  1431. ----- HyperTalk script -----
  1432. on mouseUp
  1433.   send mouseup to bkgnd btn "level2"
  1434. end mouseUp
  1435.  
  1436.  
  1437.  
  1438. -- part 127 (button)
  1439. -- low flags: 80
  1440. -- high flags: 2000
  1441. -- rect: left=127 top=249 right=266 bottom=160
  1442. -- title width / last selected line: 0
  1443. -- icon id / first selected line: 6000 / 6000
  1444. -- text alignment: 1
  1445. -- font id: 0
  1446. -- text size: 12
  1447. -- style flags: 0
  1448. -- line height: 16
  1449. -- part name: Level3 Slider
  1450. ----- HyperTalk script -----
  1451. on mouseUp
  1452.   send mouseup to bkgnd btn "level3"
  1453. end mouseUp
  1454.  
  1455.  
  1456.  
  1457. -- part 128 (button)
  1458. -- low flags: 80
  1459. -- high flags: 2000
  1460. -- rect: left=172 top=249 right=266 bottom=205
  1461. -- title width / last selected line: 0
  1462. -- icon id / first selected line: 6000 / 6000
  1463. -- text alignment: 1
  1464. -- font id: 0
  1465. -- text size: 12
  1466. -- style flags: 0
  1467. -- line height: 16
  1468. -- part name: Level4 Slider
  1469. ----- HyperTalk script -----
  1470. on mouseUp
  1471.   send mouseup to bkgnd btn "level4"
  1472. end mouseUp
  1473.  
  1474.